home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
util
/
misc
/
ClipTranslator.lha
/
ClipTranslator
/
ClipTranslator.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1999-01-13
|
1KB
|
51 lines
/*
* $VER: ClipTraslator.rexx v.1.0
*
* Programmino arexx necessario per far funzionare il programma
* ClipTraslator v.1.0 di Paolo Stefanucci.
* Deve stare nella stessa cartella di Cliptraslator.
* Per maggiori informazioni leggere il file Cliptraslator.guide
*
* basato su traduci.rexx scritto da Arturo Ortino per Ital 2.0+
*
* N.B. modificare questo file per inserire il percorso di ITAL
*/
options results
/*
* Dobbiamo controllare se Ital è stato già lanciato,
* cercando una porta di nome 'ITAL' ...
* Se Ital non è gia presente lo lanciamo
* con .... address command "Work:Inglese/Varie/Ital NOREQ"
* poi, aspettiamo fino a quando
* Ital non è pronto per ricevere ordini
* con .... address command "waitforport ITAL"
* NOTA (1): Assumiamo che Ital si trovi nella directory
* 'Work:Inglese/Varie'
* NOTA (2): Il comando 'waitforport' deve essere in una
* delle directory di ricerca assegnate con il
* comando 'path' (ovviamente).
*/
if ~show('P','ITAL') then
DO
address command "DH2:DTP/Traduttore/Ital ZIP"
address command "WaitForPort ITAL"
END
address 'ITAL' /* Contattiamo Ital */
'T:Clipboard.tmp' /* Ordina a Ital di tradurre il
* file "miofile"; lo stesso
* verrà salvato nella directory di
* provenienza (T:) con il
* nome "miofile.TRA"
*/
/* 'QUIT' se si ha poca memoria ram si può quittare Ital! */
exit (0)